home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / MINES.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.8 KB  |  142 lines
  1. 1 POKE 54276,129
  2. 2 REM 1030-1130
  3. 100 DIM B%(11,19),C%(11+1,19+1),H$(10),H(10)
  4. 110 DATA MERCURY,FRODO,MARS,COMET,ZEUS,JUPITER,BATMAN,SOCRATES,GONZO,PLUTO
  5. 120 OPEN 15,8,15:OPEN 8,8,8,"MINESHI,S,R":INPUT#15,E,E$,E1,E2
  6. 130 IF E=62 GOTO 170
  7. 140 IF E<>0 THEN PRINT "HISCORE FILE ";E$:STOP
  8. 150 H0=H0+1:INPUT#8,H$(H0),H(H0):IF ST=0 GOTO 150
  9. 160 GOTO 180
  10. 170 H0=10:H(0)=1E9:FOR J=1 TO H0:READ H$(J):H(J)=(11-J)*100:NEXT J
  11. 180 CLOSE 8:CLOSE 15:J=RND(-TI)
  12. 190 V$=""
  13. 200 PRINT "[147]":PRINT "MINES      JIM BUTTERFIELD"
  14. 210 PRINT "MOVE THROUGH A MINEFIELD TO YOUR"
  15. 220 PRINT "DESTINATION (LOWER RIGHT)."
  16. 230 PRINT "DON'T STEP ON A MINE!"
  17. 240 PRINT "THE SQUARE YOU ARE ON SHOWS A NUMBER"
  18. 250 PRINT "WHICH TELLS YOU HOW MANY MINES ARE"
  19. 260 PRINT "NEARBY (ABOVE/BELOW, LEFT/RIGHT,
  20. 270 [153] "DIAGONALS)."
  21. 280 [153] "YOU MAY MOVE UP/DOWN, LEFT/RIGHT, OR"
  22. 290 [153] "DIAGONALLY ... USE THE KEYBOARD..."
  23. 300 [153] "KEYS AROUND THE 'G' (THUS, T IS UP,"
  24. 310 [153] "V IS DIAGONALLY DOWN/LEFT ..."
  25. 320 [153] "IF YOU HAVE AN ACTIVE NUMERIC PAD, YOU"
  26. 330 [153] "MAY USE KEYS AROUND THE '5' KEY..."
  27. 340 [153] "(E.G., '4' IS LEFT, '9' IS UP/RIGHT)."
  28. 350 M[178]20:[141] 4000
  29. 355 [151] 54296,15
  30. 356 [151] 54277,5:[151] 54273,50
  31. 360 [143] START NEW GAME HERE
  32. 400 T[178]0
  33. 410 [143] START NEW FRAME HERE
  34. 500 V[178]0:W[178]0:[153] "LOAD"
  35. 510 [153]"OR";:[129] J[178]1 [164] 18:[153]"LEN=";:[130]J:[153]"LEN^"
  36. 520 [153]"PEEK";:[129] J[178]1 [164] 18:[153]" PEEK";:[130]J:[153]" PEEK"
  37. 530 [129] I[178]1 [164] 10
  38. 540 [153]"-";:[129] J[178]1 [164] 18:[153]"LEN(null)";:[130]J:[153]"LEN<"
  39. 550 [153]"PEEK";:[129] J[178]1 [164] 18:[153]" PEEK";:[130]J:[153]" PEEK"
  40. 560 [130] I
  41. 570 [153]"/";:[129] J[178]1 [164] 18:[153]"LEN>";:[130]J:[153]"LENEXP"
  42. 580 [153] ""
  43. 590 [129] I[178]3 [164] 23 [169] 2
  44. 600 [129] J[178]1 [164] 37 [169] 2
  45. 610 [139] (I[178]3 [175] J[178]1) [137] 630
  46. 620 [153] [200](V$,I);[163]J);"SPC("
  47. 625 [139] I[178]23 [175] J[178]37 [167] [153] [200](V$,I);[163]J);"."
  48. 630 [130] J,I
  49. 640 [153] " ";M;"MINES!":[161] K$,K$,K$,K$,K$,K$,K$,K$,K$
  50. 650 I[178]1:J[178]1
  51. 660 D0%[178]I[172]2[170]1:D1%[178]J[172]2[171]1
  52. 700 [153] [200](V$,D0%);[163]D1%);" ";
  53. 701 [151] 54276,128
  54. 710 D0%[178]I[172]2[170]1:D1%[178]J[172]2[171]1
  55. 720 [139] B%(I,J)[178]9 [137] 2000
  56. 730 [139] B%(I,J)[177]0 [137] 1000
  57. 740 [139] B%(I,J)[179]0 [137] 770
  58. 750 B%(I,J)[178][171]1:V[178]V[170]1
  59. 760 [153] "";[163]12);"SQUARES CLEARED:";V
  60. 770 W[178]W[170]1:[153] [200](V$,D0%);[163]D1%);[199](C%(I,J)[170]48);
  61. 771 [151] 54276,129
  62. 800 [161] K$
  63. 810 [139] (K$[178]"2" [176] K$[178]"B") [175] I[179]11 [167] I[178]I[170]1:[137] 700
  64. 820 [139] (K$[178]"8" [176] K$[178]"T") [175] I[177]1 [167] I[178]I[171]1:[137] 700
  65. 830 [139] (K$[178]"6" [176] K$[178]"H") [175] J[179]19 [167] J[178]J[170]1:[137] 700
  66. 840 [139] (K$[178]"4" [176] K$[178]"F") [175] J[177]1 [167] J[178]J[171]1:[137] 700
  67. 850 [139] (K$[178]"1" [176] K$[178]"V") [175] I[179]11 [175] J[177]1 [167] I[178]I[170]1:J[178]J[171]1:[137]700
  68. 860 [139] (K$[178]"7" [176] K$[178]"R") [175] I[177]1 [175] J[177]1 [167] I[178]I[171]1:J[178]J[171]1:[137] 700
  69. 870 [139] (K$[178]"3" [176] K$[178]"N")[175] I[179]11 [175] J[179]19 [167] I[178]I[170]1:J[178]J[170]1:[137]700
  70. 880 [139] (K$[178]"9" [176] K$[178]"Y") [175] I[177]1 [175] J[179]19 [167] I[178]I[171]1:J[178]J[170]1:[137]700
  71. 890 [137] 800
  72. 1000 [151] 54277,127:[151] 54276,129
  73. 1005 [129] K[178]1[164]14:[153] [200](V$,D0%);[163]D1%);[202]("(null)(null)*#@%*(null)(null)*#@%*",K,1);:[130] K
  74. 1010 M1[178]20:[141] 3000
  75. 1020 [139] T[179]H(10) [137] 1180
  76. 1030 [133] "ENTER YOUR NAME";H$
  77. 1040 [129] J[178]1 [164] H0
  78. 1050 [139] H$[178]H$(J) [137] 1090
  79. 1060 [130] J
  80. 1070 H0[178]H0[170]1:[139] H0[177]10 [167] H0[178]10
  81. 1080 H1[178]H0:[137] 1110
  82. 1090 H1[178]J:[139] H(J)[177][178]T [137] 1140
  83. 1100 [139] H(H1[171]1)[177][178]T [167] F9[178]1:H(H1)[178]T:[137] 1140
  84. 1110 [129] J[178]H1[171]1 [164] 1 [169] [171]1
  85. 1120 [139] T[177]H(J) [167] H$(J[170]1)[178]H$(J):H(J[170]1)[178]H(J):[130] J
  86. 1130 H$(J[170]1)[178]H$:H(J[170]1)[178]T:F9[178]1
  87. 1140 [153] "LOAD":[153] " HIGH SCORES:"
  88. 1150 [129] J[178]1 [164] H0
  89. 1160 [153] H(J);[163]10);H$(J)
  90. 1170 [130] J
  91. 1180 [151] 54277,20:[151] 54276,128
  92. 1185 [133] "WANT TO PLAY AGAIN";K$
  93. 1190 [139] [200](K$,1)[179][177]"N" [137] 400
  94. 1200 [139] F9[178]0 [137] 1320
  95. 1210 [133] "WANT TO SAVE HIGH SCORE FILE";K$
  96. 1220 [139] [200](K$,1)[178]"N" [137] 1320
  97. 1230 [159] 15,8,15
  98. 1240 [152]15,"S0:MINESHI":[132]15,E,E$
  99. 1250 [159] 8,8,8,"0:MINESHI,S,W"
  100. 1260 [132]15,E,E$:[139] E[179][177]0 [167] [153] E$:[128]
  101. 1270 [129] J[178]1 [164] H0
  102. 1280 [152]8,H$(J):[152]8,H(J)
  103. 1290 [130] J
  104. 1300 [160] 8
  105. 1310 [160] 15
  106. 1320 [151] 54296,0
  107. 1330 [151] 54277,0:[151] 54273,0
  108. 1350 [128]
  109. 2000 [151] 54276,32:[151] 54277,27:[151] 54276,33
  110. 2005 M1[178]M[170]2:[141] 3000
  111. 2010 [129] J[178]1 [164] 3000:[130] J
  112. 2015 [151] 54277,20:[151] 54276,128
  113. 2020 [137] 500
  114. 3000 [129] I[178]1 [164] 11
  115. 3010 [129] J[178]1 [164] 19
  116. 3020 [139] B%(I,J)[178]1 [167] [153] [200](V$,I[172]2[170]1);[163]J[172]2[171]1);"@";
  117. 3030 [130] J,I
  118. 3040 S0[178]207[171]M:M[178]M1:[141] 4000
  119. 3050 [153] "LOAD YOU CLEARED";V;"SQUARES"
  120. 3060 S1[178]S0[171]V
  121. 3070 S[178][181](V[170]V[172]V[172]V[173]W[173]S0[170]2[174](8[171]S1))
  122. 3080 [139] S1[178]0 [167] [153] "(THE WHOLE FIELD!)
  123. 3090 T=T+S
  124. 3100 PRINT " YOUR SCORE THIS ROUND:";S
  125. 3110 IF T<>S THEN PRINT "TOTAL THIS GAME:";T
  126. 3120 RETURN
  127. 3130 RETURN
  128. 4000 FOR I=1 TO 11:FOR J=1 TO 19
  129. 4010 B%(I,J)=0:NEXT J,I
  130. 4020 FOR I=0 TO 12:FOR J=0 TO 20
  131. 4030 C%(I,J)=0:NEXT J,I
  132. 4040 B%(11,19)=9
  133. 4050 B%(1,1)=-1
  134. 4060 FOR B=1 TO M
  135. 4070 B0%=RND(1)*11+1:B1%=RND(1)*19+1
  136. 4080 IF B0%<3 AND B1%<3 GOTO 4070
  137. 4090 IF B%(B0%,B1%)>0 GOTO 4070
  138. 4100 B%(B0%,B1%)=1
  139. 4110 IF B%(10,18)=1 AND B%(11,18)=1 AND B%(10,19)=1 THEN B%(B0%,B1%)=0:GOTO 4070
  140. 4120 FOR I=B0%-1 TO B0%+1:FOR J=B1%-1 TO B1%+1:C%(I,J)=C%(I,J)+1:NEXT J,I,B
  141. 4130 RETURN
  142.